home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 441 / aessrc12 / aesutrc1.s < prev    next >
Text File  |  1990-11-23  |  1KB  |  46 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8. ;*************************************************************************
  9. ;*
  10. ;* AESUTRC1.S - Rectangle utilities 1 of 4.
  11. ;*  Utility routines involving the standard rectangle calcs...
  12. ;*
  13. ;*************************************************************************
  14.  
  15. ;-------------------------------------------------------------------------
  16. ; rc_copy
  17. ;-------------------------------------------------------------------------
  18.  
  19. _rc_copy::
  20.           .cargs    #4,.psrce.l,.pdest.l
  21.           move.l    .psrce(sp),a0
  22.           move.l    .pdest(sp),a1
  23.           move.l    (a0)+,(a1)+
  24.           move.l    (a0)+,(a1)+
  25.           rts
  26.  
  27. ;-------------------------------------------------------------------------
  28. ; rc_equal
  29. ;-------------------------------------------------------------------------
  30.  
  31. _rc_equal::
  32.           .cargs    #4,.psrce.l,.pdest.l
  33.           move.l    .psrce(sp),a0
  34.           move.l    .pdest(sp),a1
  35.  
  36.           moveq.l   #0,d0               ; Assume not equal
  37.           cmp.l     (a0)+,(a1)+
  38.           bne.s     .notequal
  39.           cmp.l     (a0)+,(a1)+
  40.           bne.s     .notequal
  41.           moveq.l   #1,d0
  42. .notequal:
  43.           tst.w     d0                  ; insure CCR return matches d0.
  44.           rts
  45.           
  46.